home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t5.d64 / save'screen.proc < prev    next >
Text File  |  2007-02-28  |  1KB  |  55 lines
  1. 9000 // SAVE GRAPHICS SCREEN TO DISK
  2. 9010 // (C)1984  W. LOUIE  05/27/84
  3. 9020 //
  4. 9030 // WALLACE LOUIE
  5. 9040 // 3407  AVENUE 'S'
  6. 9050 // BROOKLYN, N.Y. 11234
  7. 9060 //
  8. 9070 //
  9. 9080 PROC SAVE'GRAPHICS'SCREEN(FILENAME$) 
  10. 9090 DIM NAME$ OF 20
  11. 9100 NAME$:=FILENAME$+".HRG,W,PRG"
  12. 9110 OPEN FILE 1,NAME$,WRITE
  13. 9120 ML'SETUP
  14. 9130 PRINT FILE 1: CHR$(0)+CHR$(224),
  15. 9140 FOR ADDR:=57344 TO 65345 DO
  16. 9150 BIT'MAP'HI:=INT(ADDR/256)
  17. 9160 BIT'MAP'LO:=ADDR-BIT'MAP'HI*256
  18. 9170 POKE 839,BIT'MAP'LO
  19. 9180 POKE 840,BIT'MAP'HI
  20. 9190 SYS 828
  21. 9200 PRINT FILE 1: CHR$(PEEK(1000)),
  22. 9210 ENDFOR ADDR
  23. 9220 CLOSE FILE 1
  24. 9230 ENDPROC SAVE'GRAPHICS'SCREEN
  25. 9240 //
  26. 9250 //
  27. 9260 // MACHINE LANGUAGE SETUP ROUTINE
  28. 9270 //
  29. 9280 PROC ML'SETUP 
  30. 9290 POKE 828,165 //  LDA $01
  31. 9300 POKE 829,1
  32. 9310 POKE 830,141 //  STA $0384 (900)
  33. 9320 POKE 831,132
  34. 9330 POKE 832,3
  35. 9340 POKE 833,120 //  SEI
  36. 9350 POKE 834,73 //   EOR #$07
  37. 9360 POKE 835,7
  38. 9370 POKE 836,133 //  STA $01
  39. 9380 POKE 837,1
  40. 9390 POKE 838,173 //  LDA
  41. 9400 //   839,BIT'MAP'LO
  42. 9410 //   840,BIT'MAP'HI
  43. 9420 POKE 841,141 //  STA $03E8 (1000)
  44. 9430 POKE 842,232
  45. 9440 POKE 843,3
  46. 9450 POKE 844,173 //  LDA $0384 (900)
  47. 9460 POKE 845,132
  48. 9470 POKE 846,3
  49. 9480 POKE 847,133 //  STA $01
  50. 9490 POKE 848,1
  51. 9500 POKE 849,88 //   CLI
  52. 9510 POKE 850,96 //   RTS
  53. 9520 //  1000,RETRIEVED BYTE
  54. 9530 ENDPROC ML'SETUP
  55.